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MODULE DISPAT ( | 
| 


: 1 1 

; LANG UAGE | (BLI ), 

; 8g : IDENT St yO 2000" ” 

3 4 ) = 

3 5 5 BEGIN 

ee ” 1: 

2 3 8 } gaan intact iaiintinlaa 

Ps :* * | 
. 9010 1 '* (COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
3 11 01 1 '!® DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 

3 \§ ig : os ALL RIGHTS RESERVED. * 
Py ; 7 
s 14 014 1 !* ee fe icche ss FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED % 
; 15 015 1 !* ONLY IN ACCORDANCE WITH T LICENSE AND WITH THE * 
3 1$ 5i$ 1 !@ INCLUSION OF THe ABOVE Spd had NOTICE. THIS SOFTWAR R y TH * 

4 1 001 1 !* COPIES THEREOF oy NOT BE PROVIDED OR OTHER WISE MADE AVAILABLE TO ANY * 

P4 18 0018 1 !* OTHER PERSON. NO TITLE TO pH OWNERSHIP OF THE SOFTWARE IS HEREBY * 

3 yy OAs : :* TRANSFERRED. * 

; ; 8 

3 1 80 1 1 te pie INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 

$ ¢ ¢ 1 te SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT ” 

; Z 8 ! :* CORPORA ION, * 

° ; * 

$ 5 0025 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 

3 $ oo § : i: SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 

PY 3 a 

3 8 0028 1 !«# & 

H , 5 94 ; SRR REE AEE AA AEA AAE AEE AE EEE AAEAAAAAAARAAEARAEAAEEEEE 

; (51 0031 1 !+4 

3 ¢ bo 36 1! 

; 4 : FACILITY: F11ACP Structure Level 2 

: 35 $038 1 | ABSTRACT: 

3 B89 1 

3 7 00 1! This module is the main routine of FCP. It dequeuves a request, 

: : ois : executes it, and signals completion to the user. 

: ‘ 040 | ENVIRONMENT : 

; B0e§ 1/ STARLET operating system, including privileged system services 

§ BRO? | and internal exec routines. 

; 45 5 1 ine 

: aE | 
: Be8 } AUTHOR: Andrew C. Goldstein, CREATION DATE: 20-Dec-1976 14:33 | 
3 30 : MODIFIED BY: | 
F 38 1 i V03-020 ACG0438 Andrew C. Goldstein 26-Jul-1984 14:01 

; bez ' ‘ Handle create-if at dispatcher level for improved generality 

; 055 1! V03-019 ACG0427 Andrew C Goldstein, 8-May-1984 20:31 

: 5e9 ' Optimize checksumming of file header in error cases 


<9 
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0089 Use the eh ney pa unlock routine to release 

0090 the allocation 

0091 Use the RELEASE SERIAL LOCK routine to run down locks. 
009 Move the request initialization calls into GET_REQUEST 
009 to avoid a useless init after the last request. 


v03-009 CDS0007 Christian D. Saether 2-Sep-1983 
Remember the original 10 CHANNEL UCB prior to 
the request loop. incorrectly did this 
in a ie ee request, al oon a second request piled 
he queve, would ‘'restore’’ the UCB of the 
a. hy pois rather than that of the “orignal 
channel assignment. 


v03-008 cDS0006 Christian D. Saether gr-tuget -1983 
Put back the original 10. CHANNEL UCB rather than 
ust stuffing the UCB it got when originally ese igned. 
uring process deletion, we may get called afte 
the channel has been deassigned and assigned to. 
some other device. 


v03-007 CDS0005 Christian D. Saether 23-Jun-1983 
Invalidate all buffers after a successful window turn. 


v03-006 CDS0004 Christian D. Saether 35-May-1983 
Remove volume level interlock. Unlock_xqp reutine 


127388744 
28 v03-018 arSose7 Andrew C. Goldstein, 8-May-1984 11:23 
Finish security auditing. Restructure the saved audit 
s' info to save space. 
6 v03-017 CDS0014 Christian D. Saether 10-Apr-1984 
o7 Increase number of error retries. 
65 V03-016 RSHO134 Scott Hanna 04-APR=-1984 
$8 Add the PERFORM_ Robi routine. 
68 v03-015 CDS0013 aren cansite D. Saether ne 
9 all GET R_CREDITS before starting req 
A Call R RETORN. CREDITS after running down buffers. ond locks. | 
7 7 v03-014 CDS0012 Christian D. Saether 29-Dec-1983 
7 7 L.NORM Linkage and BIND_COMMON macro. 
74 74 the et hORn module plays games with the disk 
? Ne i/o channel now. 
6 7 v03-013 CDS0011 Christian D. Saether 17-0c t-1983 | 
78 0078 Let MOUNT and ACPCONTROL functions get by 
79 to request block checking. 
Bt boss v03-012 CDS0010 Christian D. Saether re-det= 1983 
8g 008s Correctly declare BLOCK aCHeCK to be a byte 
84 084 v03-011 CDS0009 Christian D. Saether 12-0c t-1983 
85 0085 Add calls to START_REQUEST and FINISH REQUEST 
0086 to synchronize with volume activity blocking. 
0088 v03-010 cps0008 Christian D. Saether 14-Sep-1983 | 
| 
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: ee 133 ! } now releases fid locks instead of volume lock. 
; 19 3 1 v03-005 CDS0003 C Saether 26-0 t-1982 | 
; 118 Bt } : Restore original ucb's to assigned channels before exit. 

: 120 120 1! v03-004 cps0002 C Saether 6-0 t-1982 | 
; } | ! 1 ! } Add volume level interlock of XQP activity. 

. 9 ‘ 1 ¢ 1 i v03-003 CDS0001 C Saether 30-Jul-1982 
5 } : : ¢ : } Make changes from ACP to XQP. 
5 4 $ 1 $ 1 i v03-002 LMP0035 L. Mark Pilant, 28-Jun-1982 14:50 | 
5 : 5 ; : } Correct problems that caused information messages. | 
: 129 91 $ 1 i v03-001 ACG0274 Andrew C. Goldstein, 23-Mar-1982 14:49 

3 : : 3 ? : } Use longword displacement | 
; 4 g 183 i A0102  ACG0082 Andrew C. Goldstein,  8-Nov-1979 21:42 | 
5 ; 3 ? : } Make error cleanup iterative for new write error handling | 
: 135 0135 1: A0101 ACG00464 Andrew C. Goldstein, 15-Jun-1979 11:39 

3 : ot : Add disk quota support | 
: 136 0138 1: A0100 ACG00001 Andrew C. Goldstein, 10-Oct-1978 20:02 

: 139 0139 1! Previous revision history moved to F11A.REV 
3: 140 0140 1 !ee 
¢ 403 O02 4 | 
: 123 b128 1 LIBRARY 'SYSS$LIBRARY:L1B.L32'; | 
: 6146 0144 1 REQUIRE ‘SRC$:FCPDEF.B32'; 

ig oe HE Yt 

: i 4 i ; ‘ : Establish the max and min function codes for the function dispatch. 

> 149 1139 17 

s 150 1140 1 LITERAL 

. OSs 1141 «1 LOW_FUNCTION = MINU ( 

: 13¢ 1166 1 IO$_ACCESS, 

2, 35 114 1 10$_CREATE 

> 154 1144 1 10$~DEACCESS, 

: 155 1145 1 1OS"DELETE, 

; 156 1168 1 10$_MODIFY 

: 48 148 ts 

: 139 1168 1 HIGH_FUNCTION = MAXU ( 

; 160 1150 1 10$_CREATE 

: 161 1151 1 10$~DEACCESS, 

3 166 1126 1 IO$_DELETE, 

: WW 1 I10$_MODIFY 

2 se : 

: 166 1196 1 FORWARD ROUTINE 

s 115 1 DISPATCHER : L-NORM NOVALUE, 

; 168 1128 1 UNLOCK_XQP : LLNORM NOVALUE, 

3 19% Fe : MAIN_HANDLER : LINORM NOVALUE, 

$171 1161 1 PERFORM-AUDIT’ : L_NORM NOVALUE, 


| 
| 
7ERO~ON_ERROR | 
| 
| 
} 
| 


DASPaL, 1B-Reon19Be 25:45:18 PMD TABLRRCRE Y4O242 soar 930.909 caf 


; 172 1162 #1 WRITE_AUDIT : LLNORM NOVALUE; 


$$$ $$ ~ _ _ —+ 
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GLOBAL ROUTINE DISPATCHER : L_NORM NOVALUE = 


Pe 
S 


o 
w 


lee 
1 
FUNCTIONAL DESCRIPTION: 


This routine is the main routine of FCP. It dequeves a request, 
executes it, and signals completion to the user. 


CALLING SEQUENCE: 
DISPATCHER () 

INPUT PARAMETERS: 
NONE 

IMPLICIT INPUTS: 
NONE 

OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 


ROUTINE VALUE: 
NONE 


SSN PO we ee we ere 
SRLESRENLSSSLESRAV LE SSVSALASESSaVSAR 


SIDE EFFECTS: 
FCP functions executed 


. 
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BEGIN 
LABEL 
NORMAL _F UNC; ! block of normal function execution 
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10 
11 LOCAL 
\§ FUNCTION, ! function being executed 
F STATUS; ! status return of function routine 
i BIND_ COMMON; 
19 EXTERNAL ROUTINE 
18 GET_REQD_BFR_CREDITS : L_NORM, 
19 08 START REQUEST =: L_JSB, 
0 09 FINISR_REQUEST : L_JSB, 
1 10 S_EN : L_NORM, ! end performance metering 
§ 11 GET REQUEST : LLNORM, ' get next 1/0 request 
3 READ_WRITEVB : LINORM, ' process read/write virtual 
4 1 ACCESS : LINORM, ' ACCESS function routine 
5 14 CREATE : L-NORM, ! CREATE function routine 
$ 15 DEACCESS : L_NORM, ' DEACCESS function routine 
1 DELETE : L_NORM, ! DELETE function routine 
3 1 MODIFY : LUNORM, ! MODIFY function routine 
18 ACPCONTROL : L_NORM, ' ACPCONTROL function routine 
19 T : LUNORM ! MOUNT function routine 
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1b-Se 1984 23:45:1 VAX-11 Bliss-32 V4.0-742 Page 
12-88-13 93:40:18 DISKSVMSMASTER:CF11X.SRCIDISPAT.B32; 1 . (2 
1 CHECKSUM : LLNORM, ! checksum a file header 
§ ERR_CLEANUP : LINORM, ! error cleanup routine 
CLEANUP : LUNORM, ' generat cleanup routine 
¢ 10_DONE; ! 1/0 completion processing 


! Get the next request, and process it. If 
! the request fails, call the error cleanup before returning 
completion. When the last request is dequeued, return. 


; ENABLE MAIN_HANDLER; 
BEGIN 

BUILTIN FP; 

hh = MAIN_HANDLER; 


NOUS WO 


MF WN 0 OONO UE ARO OONOUES WN 


3 1 

3 1 

3 1 

3 1 

3 1 

3 1 

5 1 

3 1 

3 1 

3 4 1 

; 24 1 

3 & 1 

3 4 1 

3 4 1 

3 4 1 

3 4 1 E 

: 4 1 

: rt 1 WHILE 1 DO 

: 4 1 

; 250 1 NORMAL _FUNC: 

: 33 : r BEGIN 

; 38 124 IF (IO_PACKET = GET_REQUEST()) EQL 0 
3 54 124 THEN 

3 #29 124 

3 2$ 124 ! No more packets. Exit. 

3 5 1 28 ! 

: 258 124 

; 259 1248 RETURN; 

: 260 1249 

3 re : 39 FUNCTION = .IJO_PACKETCIRPSV_FCODE); 
; 8 1 26 STATUS = 

; 2646 125 

; 265 1254 4 BEGIN 

3 08 1255 4 

3 6 1256 4 GET_REQD_BFR_CREDITS (); 

: 268 1257 4 

; 269 1258 4 SELECTONEU .FUNCTION OF 

: 270 1259 4 SET 

: 271 1260 4 

: 2. 1261 4 CIOS_READPBLK, I10$_WRITEPBLK): 
: a3 $¢ ‘ TF READ_WRITEVB () 

3; e75 1064 4 LEAVE NORMAL _F UNC 
3 , : 65 ? ELSE 0; 

3 7 1 66 4 bigs Ac CoyTaaL Js ACPCONTROL (); 
3 iy 4 ! o8 2 10$_MOUNT): MOUNT (); 
3 + 1270 4 COTHERWISE): 

$ § 1271 4 

; oi ! 4 BEGIN 

3; 285 1274 IF .BLOCK_LOCKID EQL 0 

3 38 1275 THEN 

: 1276 6 BEGIN 


—— eee _ - _ —_ 


DISPAT en-1 119: VAX-11 BLiss=32_v4.0-762 p ? 

Sa 5-bep- 1944 T3G31y eee tAlSt eae t eek esp rspar.es2:1°% @)) 
START REQUEST (0; 

BLOCK “CHECK = | 


IOS_ACCESS]: BEGIN 
Sati STA Ries ¢) 


STATUS = 
IF STATUS EQL ss$° Hd 8 HFILE 
—— CIO_PACKETCIRPSW_FUNC], I0$V_CREATE] 


= 


BEGIN 
USER_STATUS = SS$_CREATED; 
CREATE 3) 
ELSE 
05 «STATUS 
END; 
1O$_CREATE]: CREATE (); 
IO$“DEACCESS): DEACCESS (); 
LOS_DELETE?: DELETE (); 
10$ mop iFY : MODIFY (); 
INRANGE J: (ERR_STATUS (SS$_ILLIOFUNC); 0); 
FOUTRANGE: (ERR_-STATUS (SSS"ILLIOFUNC); 0); 


IF .AUDIT_COUNT NEQU 0 
THEN 


BEGIN 
IF NOT » STATUS 

FILE HEADER NEQ 0 

Nn’ CHECRSUM (.FILE_HEADER); 
PERT Onn AUDIT(); 


DECR J FROM 2000 TO 1 


BEGIN 
IF STATUS THEN IF CLEANUP () THEN EXITLOOP; 
— US = ERR_CLEANUP (); 


a a a 


wr 


UNLOCK_XQP(); 
END (); 
10_BONE (.10_PACKET); 
IF .BLOCK_CHECK 
FINISH_REQUEST (); 
END; ! end of block NORMAL_FUNC 
END; ! end of routine DISPATCHER 


SOIFARG 
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eit 


SSS 


.TITLE DISP 
“IDENT \V04-000\ 

.EXTRN GET_REQD_BFR_CREDITS 

-EXTRN START REQUEST, FINISH REQUEST 
-EXTRN PMS_ERD T_REQUEST 

“EXTRN READ WRITEVB; ACCESS 

TEXTRN CREATE, DEACCESS 

-EXTRN DELETE, MODIFY, ACPCONTROL 

; UNT CkS 


mm 
<> 
44 
Dw» 
2z 


ERR CLEANUP, CLEANUP 
10_ BONE 


*EXTRN 
.PSECT S$CODE$,NOWRT,2 


001¢ 00000 .ENTRY DISPATCHER, Save R2,R3,R4 > 1163 
6D 0000v CF 9E 900¢ MOVAB MAIN_HANDLER, (FP) : 1234 
00006 CF 90 FB 00007 1$: CALLS #0, GET_REQUE t 1242 
90 AA 50 00 0000C MOVL RO, -112(BASE) : 
01 12 0001 BNEQ 28 : 
04 0001 RET : 
50 90 AA D0 00013 28: MOVL Fh2 (BASE) RO + 1250 
53 20 Ad 06 00 EF 0001 EXTZV #0, #6, 32(R0), FUNCTION ; 
00006 CF 09 FB 0001D CALLS #0, GET REQD_BFR_CREDITS ; 1256 
0B D1 000 CMPL FUNCTION, #1T + 1261 
oF 1F 000 BLSSU : 
OC 3 D1 00027 CMPL = FUNCTION, #12 : 
OA 1A OO02A BGTRU : 
00006 CF 0 FB 002¢ CALLS #0, READ_WRITEVB + 1262 
D3 0 €8 00031 BLBS RO. 1$ F 
§ 11 000 BRB 3 
38 D1 00036 3$ CMPL =~ FUNCTION, #56 : 1267 
07 12 00039 BNEQ : 
00006 CF 00 FB 000 : CALLS #0, ACPCONTROL : 
68 11 0004 BRB ; 
39 53 1 0042 4$ CMPL §- FUNCTION, #57 > 1268 
07 12 0004 BNEQ ; 
00006 CF 90 FB 00047 CALLS #0, MOUNT : 
F 11 0004C BRB : 
FF7C 3=OCCA p O04E 5$ TSTL  -132(BASE) + 1274 
7 005 BNEQ 3 
00006 3 909 BSBW START_REQUEST + 1277 
A? AA 1 7 MOVB «#1, -89 (BASE) : 1278 
04 32 53 CF 0005B 6$ CASEL FUNCTION, #50, #4 > 1281 
0042 0038 0034 0017 OOSF 7$ WORD -7$,- : 
0049 0067 10$-7$,- ; 
11$-7$.- ; 
193-28." 3 
15$-7$ 3 
05 80 AA £9 9069 BLBC eB BASE? 8$ > 1301 
80 AA Fe 8F 9B 060 MOVZBW #244, -128(BASE) ; 
9 1 0 ¢ 8$ CLRL 2 
00006 CF 1b 0076 9S eres AG ACCES : 1285 
00000910 SF 98 D1 00078 CMPL = STATUS, $3320 ; 158¢ 


a eee “ome “— 
14 | 
18-3¢ =1984 23:45:1 VAX-11 Bliss-32 V4.0-742 Page 9 1; 
122808= 1982 13:49:13 DISKSVMSMASTER:CF11X.SRCIJDISPAT.B32;1 9 23 al 
29 «1 BNEQ 14$ ; 
51 90 AA p MOVL  -112(BASE), R1 t 1287 
ae : 

80 AA 0619 i if MOVZWi #1361 -128 (BASE) t 1290 
00006 CF 09 Fe 3 10$: CALLS #0, CREAT + 1296 
00006 CF 0 rs 9A 11$: CALLS #0, DEACCESS t 1297 
00006 CF 6 FB Onl 12$: CALLS #0, DELETE + 1298 
00006 CF 6 F Ons 13$ CALLS #0. MODIFY : 1299 

4 D AD 14$ MOV RO. STATUS : 1258 
0264 CA b 0B0 TSTL 746(BASE) + 1307 
15 0B4 BEQL  16$ ; 
0D 54 €8 000 BLBS § STATUS, 15$ + 1310 
04 ~&& D5 00089 TS? 4 (BASES + 1311 
08 13 000BC 15$ : 
04 AA DD 000B PUSHL 4(BASE) + 1312 
00006 CF 01 FB 000C CALLS #1, CHECKSUM : 
0000v CF 00 FB 000C6 15$: CALLS 409 PERFORM_AUDIT + 1313 
32 0700 8F 3C 000CB 16$:  mMoV2wL #2600, J : 1316 
0 4 £9 00000 17$: 6LBC STATUS, 18$ + 1319 
00006 CF 00 Fe 00D CALLS #0, CLEANUP ; 
0B 0 €E8 00008 BLBS RO. ; 
00006 ct 00 FB OOODB 18$: CALLS #0. ERR_CLEANUP + 1320 
4 0 D Booes MOVL RO, STATUS ; 
EA 52 FS O00ES SOBGTR J, 17$ : 1316 
0000v CF 00 FB 000E6 198: CALLS #6, UNLOCK_xOP + 1323 
0000G CF 00 FB OOOEB CALLS S_END 3: 1324 
90 AA DD S00F0 PUSHL -112(BASE) : 1325 
00006 CF 01 FB OOF3 CALLS #1, 10 DONE : 
03 AA 000F8 BLBC -89(BASE), 208 : 1327 
00006 30 O00FC BSBW FINISH_REQUEST : 1329 
FFOS 31 QOOOFF 20$: BRW 1$ + 1237 
04 00102 RET : 1333 


; Routine Size: 259 bytes, Routine Base: S$CODE$ + 0000 
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14-Sep-1984 $34 g 
GLOBAL ROUTINE MAIN_HANDLER (SIGNAL, MECHANISM) : L_NORM NOVALUE = 
1+ 
FUNCTIONAL DESCRIPTION: 
This routine is the main level condition handler. It stores the 
condition value (FCP error code) in the user status block, unwinds 
and returns from the function that was executing. 


CALLING SEQUENCE: 
MAIN_HANDLER (ARG1, ARG2) 


INPUT PARAMETERS: 
ARG]: address of signal array 
ARG2: address of mechanism array 


IMPLICIT INPUTS: 
NONE 
OUTPUT PARAMETERS: 
NONE 
IMPLICIT OUTPUTS: 
USER_STATUS: receives signal code 
ROUTINE VALUE: 
NONE 


SIDE EFFECTS: 
stack unwound to main level to return to dispatcher 


BEGIN 
MAP 
SIGNAL : REF BBLOCK, ! signal array arg 
MECHANISM : REF BBLOCK; ! mechanism array arg 
BIND_ COMMON; 
EXTERNAL ROUTINE 
SYSSUNWIND : ADDRESSING_MODE (ABSOLUTE); 


' Check the signal code. The gnty permissible ones are SS$_UNWIND, which 
‘ is ignored. and SS$_CMODUSER. The error status is the 16 bit CHMU code. 
! If the error value Ts non-zero, store it in the user status (zero 

! means just exit). Set up a return value of 0, unwind to the current 

! depth, and return, causing the invoked function to return with failure 
; to the dispatcher. 


IF .SIGNAL prt red heret EQL SS$_UNWIND THEN RETURN; 
IF .SIGNALCCHFS$L SIG NAME) NEQ SS$ CMODUSER : ; 
THEN BUG_CHECK (ONXSTGNAL, FATAL, “Unexpected signal name in ACP"); 
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32 V4.0-742 P 
D R:CF1IXx SRCIDISPAT.B32:1) (3) 


; 403 139 
i 4 1 3 IF ~ SIGNALE CHE SL_S1G_ARG1] NEQ 0 | 
3 405 1 AND “USER. STATU 
3 4 1 3 THEN USER-STATUS = .SIGNALCCHFSL_S1G_ARG1); 
; ‘ 36 MECHANISMCCHFSL_MCH_SAVRO] = .USER_STATUS; 
3 ai% ' 8 SYSSUNWIND (MECHANISMCCHFSL_MCH_DEPTH], 0); 
: 61 14 RETURN; 
; t18 120% 
3; «4416 1402 END; ! end of routine MAIN_HANDLER | 
.EXTRN SYSSUNWIND, BUGS_UNXSIGNAL 
0000 p08 «ENTRY MAIN_HANDLER, Save nothing 3; 1334 
50 4 AC 00 0000 MOVL SIGNAL, : 1388 
00000920 =F 4 AO D1 00006 CMPL 4(RO), #2336 : 
37 13 0000 BEQL $ : 
00000424 8F 04 AO 01 0001 CMPL 4 (RO, #1060 + 1389 
04 13 0001 BEQL 1$ : 
FEFF QOO1A BUGW + 1390 
0000* 0001¢ .WORD <BUG$_UNXSIGNAL!4> : 
50 04 AC DO OOOIE 18 MOVL IGNAC, RO 3 1392 
08 Ad 05 000 TSTL (RO) : 
09 13 000 BEQL § : 
05 80 AA €E9 00027 BLBC <-128(BASE), 2$ + 1393 
80 AA 08 Ad 00 00028 MOVL 8(RO), -128(BASE) ; 
50 08 AC DO 00030 2$: MOVL #§ MECHANISM, RO : 1396 
0c AO 80 AA 00 00034 VL  =128(BASES, 12(RO) F 
7E D4 0039 CLRL_ =(SP) : 1398 
7E 08 ac 08 C1 000 B ADDL3 #8, MECHANISM, -(SP) : 
000000006 9F 02 FB 9004 CALLS #2. @#SYSSUNWIND ; 
04 00047 3$: ET : 1402 


; Routine Size: 72 bytes, Routine Base: S$CODE$ + 0103 
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15 
1$-Se 1984 23:45:1 VAX-11 Bliss-32 
1a=860-1984 #3465] DISKSVMSMASTER: 
GLOBAL ROUTINE ZERO_ON_ERROR (SIGNAL, MECHANISM) = 


+4 
1 


i FUNCTIONAL DESCRIPTION: 


This condition handler is used in various places to cause a 
function to return zero if any error is signalled during its 
operation. The actual error is ignored. 


CALLING SEQUENCE: 
ZERO_ON_ERROR (SIGNAL, MECHANISM) 


INPUT PARAMETERS: 
SIGNAL: address of condition signal vector 
MECHANISM: address of condition mechanism vector 


IMPLICIT INPUTS: 
NONE 

OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 

ROUTINE VALUE: 


SS$_RESIGNAL 


SIDE EFFECTS: 
Stack unwound to establisher (FLUSH_QUO_CACHE) 


SIGNAL : REF BBLOCK, ! signal arg list 
MECHANISM : REF BBLOCK; ! mechanism arg List 


! Check for an error signal. All others are resignaled. On an error 
set the return RO to 0 and unwind to establisher. 


[Fg SECMALC CH OL 516 ED EQL SS$_CMODUSER 


BEGIN 
ME CHANISMCCHFSL_MCH_SAVRO] = 0; 
SUNWIND (DEPADR™= MECHANI SMCCHFSL_MCH_DEPTH)); 


SS$_RESIGNAL 
END; ! End of routine ZERO_ON_ERROR 


——" 


18-32,-19 4 $3:$3:13 


14-Sep-1984 


000 ENTRY ZERO_ON_ ERROR, Save nothing 
30 04 AC D MOVL SIGNAL, OR 
00000424 F 4 ‘ 13 ont 700 #1060 
50 08 at D MOVL MECHANISM, RO 
© be 000I7 etAt LeSBy 
7E 08 A 8 C1 19 ADDL3 #8, MECHANISM, -(SP) 
000000006 05 B 3 CALLS @ $YSSUNWIND 
0918 8F ie $3 1$ HOV we #2328, R 


; Routine Size: 43 bytes, Routine Base: SCODES + 0148 
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15 
DISPAT 18-se =1984 23:45:1 VAX-11 Bliss-32 V4.0-742 Pa 4| 
voL-000 \a-Sep-1984 12:30:18 DIKSVMEMASTERSCFTiX-¢RCIDISPAT.832;1°%" (4), 
; 47 145 1 GLOBAL ROUTINE UNLOCK_XQP : L_NORM NOVALUE = 
: 1260 J i | 
: 475 1461 1 | FUNCTIONAL DESCRIPTION: 
: rh re } This routine releases the xqp synchonization locks. 
Se a 
: 6 1466 EXTERNAL ROUTINE 
; 481 146 RETURN_ CREDITS : L_NORM, 
: 4 ¢ 1668 ALLOCATION UNLOCK : LINORM, 
; ? 1o9? RELEASE_SERIAL_LOCK : LINORM; | 
: 485 1471 2 BIND_COMMON; | 
if 186 3 coca 
; 488 1674 LOCKID; | 
; 490 1476 INCR 1 FROM 1 TO (LB_NUM = 1) | 
; 49 1478 IF -UB_LOCKID C.1] NE 0 | 
; 49% 1480 RELEASE_SERIAL_LOCK (.1); 
: 496 1482 ALLOCATION_UNLOCK (); 
; 498 1484 RETURN_CREDITS (); 
; 499 1485 | 
; $00 1486 1 END; 
.EXTRN RETURN CREDITS, ALLOCATION_UNLOCK 
-EXTRN RELEASE_SERIAL_LOCK 
0004 00000 .ENTRY UNLOCK_XQP, Save R2 : 1458 | 
52 01 DO 9002 MOVL 8oso#t, + 1474 
6C Age D3 0005 1$ TSTL  108(BASE)CII + 1478 
Q 13 00009 BEQL -2$ : 
2 DD 00008 PUSHL I > 1480 
00006 CF 01 Fe 0000 CALLS #1, RELEASE_SERIAL_LOCK ; 
EF 52 04 F 00012 2$ AOBLEQ #4. I, : 1478 
00006 CF 00 FB 00016 CALLS #0. ALLOCATION UNLOCK > 1482 
00006 CF 00 FB 90018 CALLS #0, RETURN_CREBITS > 1484 
04 0002 RET : 1486 


; Routine Size: 533 bytes, Routine Base: S$CODE$ + 0176 


ee . . 


bese -1984 VAX=11 Bliss-32 V4,0-742 Page 1 
1a=8ep-1984 4 $3: $31 DISKSVMSMASTER:CF11X.SRCIDISPAT.832;1 . (6 


| 
GLOBAL ROUTINE PERFORM_AUDIT : L_NORM NOVALUE = 


'e4 


FUNCTIONAL DESCRIPTION: | 


This routine outputs any erect audit records that may nore resulted 
from protection checks performed in this file operation. T ner are 
elt te Fis. 10 $p "> dees ecause of the disruption caused by the 

ca ° 


CALLING SEQUENCE: 
PERFORM_AUDIT () 


INPUT PARAMETERS: 
NONE 


IMPLICIT INPUTS: 
NONE 

OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 

ROUTINE VALUE: 
NONE 


SIDE EFFECTS: 
NONE 


! Start of routine PERFORM_AUDIT 


ee BON nae SSSRSS 
FwnOV0eanou Wit = ODO NON P I O DONO EI O Doe MEwrn 


AUDIT_BLOCK : REF BBLOCK; ! pointer to saved audit block 
BIND_COMMON; 
EXTERNAL ROUTINE 

SERIAL_FILE : L NORM; ! acquire file synchronization lock 


! Step through the List of saved audits and write the audit for each block 
; that contains a valid entry. 


AEH SOO NONE WN OOD NAAR WN HOOD IRAE WU LOL URN OO DOo 


BEAD IMIPPIPYPIMPNYIPIMPNINIPPDINIIIAD i i ih i tk at td ot od = 
o - @ 
om 
. = 
_— 
a 


AUDIT BLOCK = AUDIT_ARGLIST; 
DECR J FROM MAX_AUDTT_COUNT TO 1 
| 
| 


BEGIN 
IF .AUDIT_BLOCKCAUDIT_TYPE] NEQ 0 
THEN 


Be Se Se Se Se Se Ge Be Se Se Ge Se Se Ge Se Se Se Se Ge Se Se Se Be Se Se Ss Ge Se Se Ge Ss Se Se Se Ss Se Se Se Se Ss Se Se Se Se Ge Se Se Se Ss Se FH Se Se Oe Se ee we 
ee em em ed dd ed od wd wd dd = wd dd Dd 
DW we ea eae ea easel ea eal ea eles lu ales lw sles ssh sh sb etb Ab Ab Ab Ab Ab ab ab ab ab al ab val eal alealval eal al al al at ee ee ot ae ae oe oF oF oP oP oF 


PPV DV PV DV DPV DPV SV LUDVSPV SII DPVDVSUSVST SUSI SITIO 


WAAAY 


ONOUE wt 


BEGIN 
SERIAL_FILE (AUDIT_BLOCKCAUDIT_F1D)); 


— eee 


4 
§.13 
DISPAT ep-19 VAX-11 Bliss-32 V4.0-742 16) 
Poet 000 ~3007} 38% 93: $33] DISKSVMSMASTER:CF11X.SRCIDISPAT.B32;1 gage (6) | 
; $3 } re 4 WRITE AUDIT (.AUDIT_BLOCK); 
3 $ | 4g Aud | BLOCK = .AUDIT_BLOCK + AUDIT_LENGTH; | 
: 56 154 ; 
; 564 1 rk END; ! End of routine PERFORM_AUDIT | 
.EXTRN SERIAL_FILE 

000¢ .ENTRY PERFORM_AUDIT, Save R2,R3 : 1487 
38 0924 os 8 ROvAS gslocense). AUDIT BLOCK i 158 
62 : A 1$: Ist {ADT _BLOCK) : 1540 
02 Ae oF PUSHAB e(AUDIT BLOCK) » : 1543 

00006 CF 9 FB 91 CALLS SERTAL_F ; 
0000v CF 84 +3 5018 CALS AVSIE BLOCK’ —_ 
: 19 0 001D 2$: ADDL2 #16, AUDIT_BLOCK t 1546 
53 F 9020 SOBGTR J, 1$ : 1537 
04 000 RET + 1549 


; Routine Size: 36 bytes, Routine Base: S$CODES + 0197 


15 
13-Sep-1964 43:90:18} DERKSUMGMASTER SEY TinceReaDIsPaT.e32:1°%° «hs 


| 
| 

; 66 ' ’ GLOBAL ROUTINE WRITE_AUDIT (AUDIT_BLOCK) : L_NORM NOVALUE = 

: 1 1! 

; $ 1 1! 

i 3f 4 i FUNCTIONAL DESCRIPTION: | 

: 57 1 6 1/ This routine writes a security audit record based on the specified 

$ 7 1 1! saved audit block. Most of the information has been collected in 

: 74 1 8 1! CHECK_PROTECT; ALL that remains is to construct the actual audit 

3 Le : aR : arg list and call NSASEVENT_AUDIT. 

: $7 1361] i CALLING SEQUENCE: 

; 8 6¢ WRITE_AUDIT (AUDIT_BLOCK) 

; 80 1364 1 | INPUT PARAMETERS: 

3 1 : 65 ! AUDIT_BLOCK: address fo saved audit info 

: 5s 1303 1 | IMPLICIT INPUTS: 

: Sas 1368 1 | — 

; 86 1390 1 | OUTPUT PARAMETERS: 

so i= 

: 589 1898 1 | IMPLICIT OUTPUTS: 

et an te tis 

; 3% 1576 1 | ROUTINE VALUE: 

ioe ain ie | 

; 295 1579 1 | SIDE EFFECTS: 

; 596 1580 1: NONE 

: 597 1581 1: 

tt Bho 

F 600 1384 BEGIN | ! Start of routine WRITE_AUDIT 

: 60 1 BUILTIN 

; $08 1369 CALLG; 

is if 

; 606 1390 AUDIT_BLOCK : REF BBLOCK; ' audit info block 

: 608 1382 LOCAL 

; 609 159 ARGLIST : BBLOCK CNSASK_ARG1_LENGTH], 

; 610 1594 ! audit argument List 

3 et} 1332 LOC_HEADER; ! Local copy of file header address 

; gig 1899 LINKAGE : | 

> 614 1598 ARGLST_IMGNAM = JSB (REGISTER = 2;) : 

+ 615 1599 NOPRESERVE (0,1) | 

; 616 16 ! NOTUSED (3,4,5,6,7,8,9,10,11); | 

: 61 1 EXTERNAL ROUTINE‘ 

; $19 16 g READ_HEADER : L_NORM, ' Read file header 

x ©6620 16 WRITE_DIRTY :L 4 ' Write dirty buffers on lock | 

; e31 1605 FID_T0 SPEC : NOVALUE L_NORM, ! Convert FID to file name 

i 622 16 NSASARGLST_IMGNAM : ARGLST_TMGNAM ADDRESSING_MODE (GENERAL), | 
j 


soi iienanitennatitiineeeinaees —— 


15 
b-ep-1984 3:30:18 SaecsumBaAStenccetikscneapispar.es2:1°%° (> 


1 

1 

H get ima e@ name for audit record 
! §$ 


NSASEVENT_AUDIT : ADDRESSING_MODE (GENERAL) 


ecurity auditing routine 


=SSel 


BIND_ COMMON; 


: Build the audit argument List from the saved info. 


> a  _ _ > 


6 

ei 

614 

615 

é 5 ARGLISTCNSASB_ARG_FLAG) = .AUDIT BLOCKLAUDIT_ TYPE); 

° ARGLIST NSASL_ARGT _FACROD TM] = ASASK_ARG_MECH_LONG*16_+ NSASK_PKTTYP_FACMOD; 
ARGLISTLNSASL-ARG]_FACMOD] = .AUDIT BCOCKCAUDIT ACCESS); 

6 ARGLISTUNSASL_ARG1_FILNAM_TM] = NSASK_ARG_MECH_BESCR*16 + NSASK_PKTTYP_FILNAM; 

6 

e55 

624 BEGIN 

625 ARGLISTCNSASL_ARG_COUNT] = 12; 

6 § ARGLISTUNSASL_ARG_ID) = NSASK_RECID_FIL_SUCC; 

6 ARGLISTCNSASB_ARG_PKT = 4; 

628 ARGLISTCNSASL_ARGT_PRIVUSED_TM] = NSASK_ARG_MECH_LONG*16 + NSASK_PKTTYP_PRIVUSED; 

> 4 arelist NSASL_ARG1_PRIVUSED] = .AUDIT_BCOCKCAUDIT_PRIVSJ; 

631 ELSE 

6 ¢ BEGIN 

6 ARGLISTCNSASL_ARG_COUNT] = 10; 

6 ARGLISTCNSASL_ARG_ID] = NSASK_RECID_FIL_FAIL; 

635 ARGLISTCNSASB_ARG_PKTNUM) = 3; 

6 END; 

6 

6 

6 


SSLSSSLESOSSLS SLES LL ELIE LOL ELEC LO OO LLL LES 
SFERASSEUSAT UNIS OS Ub hee SSeS CEN 
kk tt ts at ws a a a a a a ts — as =) 4 2s 4 ts a 


| 

| 

| 
IF _.AUDIT_BLOCKLAUDIT_SUCCESS] 
THEN 


8 2 LOC_HEADER = READ WEADER (AUDIT _BLOCKCAUDIT_FIDJ, 0); 

39 2 WRITE DIRTY (.LB BASISC.PRIM_LCRINDX)); 
640 D_TO_SPEC (.LOC_HEADER); 
641 ARGCISTCWSASL_ARGT_F SIZ] = .FILE_SPEC_LEN<0,16,0>; 
669 ARGLISTCNSASL-ARG1_FILNAM-PTR) = FULL_FILE SPEC; 
64 NSASARGLST_IMGNAM TARGLISTCNSASL_ARG1_IMGNAM_TM3); 
o48 CALLG (ARGCIST, NSASEVENT_AUDIT); 
048 ! Note this entry processed. 
64 : 
64 
$49 AUDIT_BLOCKCAUDIT_ TYPE] = 0; 
620 AUDIT=COUNT = .AUBIT_COUNT = 1; 
652 END; ! End of routine WRITE_AUDIT 

-EXTRN READ_HEADER, WRITE_DIRTY 

-EXTRN FID TO SPEC, NSASARGLST_IMGNAM 

-EXTRN NSASEVENT_AUDIT 

0004 90 -ENTRY WRITE_AUDIT, Save R2 ; 1550 
f 3% OC 88 SUBL2 @# P 3 
04 aC 0 0 MOVL  AUD{T_BLOCK, R : 1617 
08 AE 6 009 MOVB = (RO), “ARGLIST+ ; 


Reese 


15 
18-5 -1 :45:1 VAX-11 Bliss-32 V4.0-742 Pa 9 
127808-1 382 93:43:18 DISKSVMSMASTER:CF11X.SRCIDISPAT.B32;1 Ry 
AE 000200 BF D MOVL #131074, ARGLIST+#12 : 161 
%§ AE § AO D 13 MOVL  8(RO) Anecietite +1 8 
14 AE 00060006 BF 0D 1A MOVL #262148, ARGLIST+20 31 
1E 1 ao € BLBC 1(R0) : 16 COA 
6E C D MOVL Hie Ar : 16 
AE 00010001 BF p MOVL #65537, ARGLIST+4 : 16 5 CTL 
9 AE 4 1 MOVE 4&4 ARGLIST® : 16 CTL 
f AE 00020003 F D 5 MOVL #131075, ARGLIST+44 : 16 8 CTL 
AE C AQ p i BOVE } (RO), ARGLIST+48 : 16 ote 
bE AD 44 1$: MOVL 49 ARGLIST : 16 g DIS 
04 AE 00020001 F p 47 MOVL a {073, ARG IST+4 : 1634 DIS 
9 A 3 Ff MOVB #3, ARGLIST+ : 1635 FI 
p4 33 28: CLRL = = ( §P) + 1638 IN] 
02 =#«A F $2 PUSHAB 2(RO) : IN] 
00006 gf Q F 058 CALLS ne. READ_HEADER ; 10, 
; DO 0005p RO, LOC_READE 3 10 
5 138 AA 00 00060 MOVL  24(BASEJ, RO + 1639 1PC 
0080 CASO DD 00064 128 (BASESCROJ : IRF 
00006 CF o1 FB 00069 CALLS #1, WRITE DIRTY : 
2 DD 0006 PUSHL LOC_HEADER + 1640 
00006 CF 01 FB 0007 CALLS #1, FID_TO_SPEC : 
18 AE 04E8 CA 3C 00075 MOVZWL 1236 (BASE); ARGLIST+24 + 1641 
10 «(OA 04EA CA 9E 00078 MOV 1 38 (BASE), ARGLIST+28 : 1648 
0 AE 9E 00081 MOVAB ARGLIST+32, : 1643) 
000000006 00 16 00085 JSB SASARGLST_IMGNAM : | 
000000006 00 6E FA 00088 CALLG ARGLIST, NSASEVENT_AUDIT > 1644 
06 BC 94 0009 CLRB UDIT_BLOCK + 1649 
02E4 CA 07 0009 DECL 0(BASE) : 1650 
04 00099 RET : 1652 
; Routine Size: 154 bytes. Routine Base: S$CODES + 01BB 
669 1653 1 
670 1654 1 END 
671 1655 0 ELUDOM 
; PSECT SUMMARY 
3 Name Bytes Attributes 
: SCODES 597 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
3 Library Statistics 
: yabols 
: File Total Loaded Percent Mapped 


onetime Symbols -------- Pages Processing | 
Time | 

| 

| 


tte Bep=198e 93:90:18 DISRSVMGMASTERSCH TIN. GRC IDISPAT.B32;1°%° (99 


tittle 


; _$255$0UA28:(SYSLIBILI8.L32;1 18619 61 0 1000 00:01.9 

3 COMMAND QUALIFIERS 

3 BLISS/CHECK=(FIELD, INITIAL OPTIMIZE)/LIS=LIS$:DISPAT/OBJ=OBJ$:DISPAT MSRC$:DISPAT/UPDATE=(ENH$:DI SPAT) 
; Size: 597 ¢ + 0 data bytes 

; Run Time 098 1 . 


3; Elapsed Time: :04.0 
3 Lines/CPU Min: 130e 

3 sonenees Sry -ra 6487 

3 = 232 pages 
3; Compi A. ny Complete 
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